Markus Triska <markus.triska at gmx.at>:

(byte-optimize-char-before): Remove (move to bytecomp.el as
byte-compile-char-before).

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 5215e6e9db7ac9b704a82ac5d7fc1811ec164f9d..a6e4d8a91e02815d1e0b37a81f7277972f72c45f 100644 (file)
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -1137,14 +1137,6 @@
         '(forward-word -1))
        (t form)))
 
-(put 'char-before 'byte-optimizer 'byte-optimize-char-before)
-(defun byte-optimize-char-before (form)
-  (cond ((= 2 (safe-length form))
-        `(char-after (1- ,(nth 1 form))))
-       ((= 1 (safe-length form))
-        '(char-after (1- (point))))
-       (t form)))
-
 ;; Fixme: delete-char -> delete-region (byte-coded)
 ;; optimize string-as-unibyte, string-as-multibyte, string-make-unibyte,
 ;; string-make-multibyte for constant args.